|
CATIA V5 Programmierung : CATPart erstellen Kugeln mit Makro.
ferdo am 07.03.2012 um 19:51 Uhr (0)
Language="VBSCRIPT"Sub CATMain()Msgbox "Select geometrical set containing points to create spheres"Dim Document,Part,Selection,HybridShapeFactory,HybridBodies,HybridBody,OriginElements,Plane,PlaneReference,Status Dim InputObjectType(0),PointIndex,PointReference,HybridShapeSymmetry Set Document = CATIA.ActiveDocument : Set Part = Document.Part : Set Selection = Document.Selection Set HybridShapeFactory = Part.HybridShapeFactory InputObjectType(0)="HybridBody" Status=Selection.SelectElement3(InputObjectTyp ...
| | In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : CATPart erstellen Kugeln mit Makro.
ferdo am 07.03.2012 um 19:58 Uhr (0)
Hallo, Language="VBSCRIPT"Sub CATMain()Msgbox "Select geometrical set containing points to create spheres"Dim Document,Part,Selection,HybridShapeFactory,HybridBodies,HybridBody,OriginElements,Plane,PlaneReference,Status Dim InputObjectType(0),PointIndex,PointReference,HybridShapeSymmetry Set Document = CATIA.ActiveDocument : Set Part = Document.Part : Set Selection = Document.Selection Set HybridShapeFactory = Part.HybridShapeFactory InputObjectType(0)="HybridBody" Status=Selection.SelectElement3(InputObj ...
| | In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : PartBody Farbe wechsel
ferdo am 22.06.2013 um 00:34 Uhr (0)
In CATScript...Sub CATmain ()CATIA.DisplayFileAlerts = False What do you want to select Dim EnableSelectionFor(0) EnableSelectionFor(0) = "AnyObject" Reset the Selection Set sSEL = CATIA.ActiveDocument.Selection sSEL.Clear Define Selection MsgBox "Please Select the element from which you want to get the color" UserSelection = sSEL.SelectElement2(EnableSelectionFor, "Please Select the element from which you want to get the color", False) Evaluation if the selection is correc ...
| | In das Form CATIA V5 Programmierung wechseln |
|
Anzeige:
Anzeige: (Infos zum Werbeplatz)
 |
